home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / 1.2 / scripts / rendermap.scm.z / rendermap.scm
Text File  |  2002-07-08  |  3KB  |  81 lines
  1. ;
  2. ;
  3. ;
  4. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  5. ; At ECS Dept, University of Southampton, England.
  6.  
  7. ; This program is free software; you can redistribute it and/or modify
  8. ; it under the terms of the GNU General Public License as published by
  9. ; the Free Software Foundation; either version 2 of the License, or
  10. ; (at your option) any later version.
  11. ; 
  12. ; This program is distributed in the hope that it will be useful,
  13. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ; GNU General Public License for more details.
  16. ; 
  17. ; You should have received a copy of the GNU General Public License
  18. ; along with this program; if not, write to the Free Software
  19. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20.  
  21.  
  22. (define (script-fu-render-map inSize inGrain inGrad inWiden)
  23.  
  24.     (set! old-gradient (car (gimp-gradients-get-active)))
  25.     (set! old-fg (car (gimp-palette-get-foreground)))
  26.     (set! old-bg (car (gimp-palette-get-background)))
  27.  
  28.         (set! theWidth inSize)
  29.     (set! theHeight inSize)
  30.         (set! theImage (car(gimp-image-new theWidth theHeight RGB)))
  31.  
  32.         (gimp-selection-all theImage)
  33.  
  34.         (set! theLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "I've got more rubber ducks than you!" 100 NORMAL)))
  35.         (gimp-image-add-layer theImage theLayer 0)
  36.         (plug-in-solid-noise TRUE theImage theLayer 1 0 (rand 65536) inGrain inGrain inGrain)
  37.  
  38.     (if (= inWiden 1) (begin
  39.             (set! thinLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "Camo Thin Layer" 100 NORMAL)))
  40.             (gimp-image-add-layer theImage thinLayer 0)
  41.         (let     ((theBigGrain (min 15 (* 2 inGrain))))
  42.                      (plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) theBigGrain theBigGrain theBigGrain)
  43.         )
  44.         (gimp-palette-set-background '(255 255 255))
  45.         (gimp-palette-set-foreground '(0 0 0))
  46.         (let     ((theMask (car(gimp-layer-create-mask thinLayer 0))))
  47.             (gimp-image-add-layer-mask theImage thinLayer theMask)
  48.             (gimp-blend theMask FG-BG-RGB NORMAL LINEAR 100
  49.                 0 REPEAT-TRIANGULAR FALSE 0 0 0 0 0 (/ theHeight 2) )
  50.         )
  51.         (set! theLayer (car(gimp-image-flatten theImage)))
  52.     ))
  53.     
  54.     (gimp-selection-none theImage)
  55.     (gimp-gradients-set-active inGrad)
  56.     (plug-in-gradmap TRUE theImage theLayer)
  57.         (gimp-gradients-set-active old-gradient)
  58.         (gimp-palette-set-background old-bg)
  59.         (gimp-palette-set-foreground old-fg)
  60.         (gimp-display-new theImage)
  61. )
  62.  
  63.  
  64.  
  65. ; Register the function with the GIMP:
  66.  
  67. (script-fu-register
  68.  "script-fu-render-map"
  69.  _"<Toolbox>/Xtns/Script-Fu/Patterns/Render Map..."
  70.  "Another pattern which resembles a map"
  71.  "Chris Gutteridge: cjg@ecs.soton.ac.uk"
  72.  "28th April 1998"
  73.  "Chris Gutteridge / ECS @ University of Southampton, England"
  74.  ""
  75.  SF-ADJUSTMENT _"Image Size" '(256 0 2048 1 10 0 0)
  76.  SF-ADJUSTMENT _"Granularity" '(4 0 15 1 1 0 0)
  77.  SF-GRADIENT   _"Gradient" "Land_and_Sea"
  78.  SF-OPTION     _"Behaviour" '(_"Tile" _"Detail in Middle")
  79. )
  80.  
  81.